home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / scripts / waves-anim.scm.z / waves-anim.scm
Encoding:
GIMP Script-Fu Script  |  1999-07-21  |  2.9 KB  |  125 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; This program is free software; you can redistribute it and/or modify
  5. ; it under the terms of the GNU General Public License as published by
  6. ; the Free Software Foundation; either version 2 of the License, or
  7. ; (at your option) any later version.  
  8. ; 
  9. ; This program is distributed in the hope that it will be useful,
  10. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ; GNU General Public License for more details.
  13. ; 
  14. ; You should have received a copy of the GNU General Public License
  15. ; along with this program; if not, write to the Free Software
  16. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17. ;
  18. ;
  19. ; waves-anim.scm   version 1.01   12/13/97
  20. ;
  21. ; CHANGE-LOG:
  22. ; 1.00 - initial release
  23. ; 1.01 - some code cleanup, no real changes
  24. ;
  25. ; Copyright (C) 1997 Sven Neumann (neumanns@uni-duesseldorf.de)
  26. ; 
  27. ;  
  28. ; Makes a copy of your image and creates an animation of the active layer
  29. ; as if a stone was thrown into the image. The animation may be saved with 
  30. ; the gif-plug-in. 
  31.  
  32. (define (script-fu-waves-anim img 
  33.                   drawable 
  34.                   amplitude 
  35.                   wavelength 
  36.                   num-frames
  37.                   invert)
  38.   (let* ((amplitude (max 0 amplitude))
  39.      (wavelength (max 0 wavelength))
  40.      (num-frames (max 1 num-frames))
  41.      (remaining-frames num-frames)
  42.      (phase 0)
  43.      (phaseshift (/ 360 num-frames))
  44.          (image (car (gimp-channel-ops-duplicate img)))
  45.      (source-layer (car (gimp-image-get-active-layer image))))
  46.    
  47.   (gimp-image-disable-undo image)
  48.  
  49.   (if (= invert TRUE)
  50.       (set! phaseshift (- 0 phaseshift)))
  51.   
  52.   (while (> remaining-frames 1)
  53.      (let* ((waves-layer (car (gimp-layer-copy source-layer TRUE)))
  54.         (layer-name (string-append "Frame " 
  55.                        (number->string
  56.                         (- (+ num-frames 2) 
  57.                            remaining-frames) 10))))
  58.          (gimp-layer-set-preserve-trans waves-layer FALSE)
  59.      (gimp-image-add-layer image waves-layer -1)
  60.      (gimp-layer-set-name waves-layer layer-name)
  61.      
  62.      (plug-in-waves 1 
  63.             image 
  64.             waves-layer
  65.             amplitude 
  66.             phase 
  67.             wavelength 
  68.             0 
  69.             FALSE)
  70.       
  71.      (set! remaining-frames (- remaining-frames 1))
  72.      (set! phase (- phase phaseshift))))
  73.  
  74.   (gimp-layer-set-name source-layer "Frame 1")
  75.   (plug-in-waves 1 
  76.          image 
  77.          source-layer
  78.          amplitude 
  79.          phase 
  80.          wavelength 
  81.          0 
  82.          FALSE)
  83.  
  84.   (gimp-image-enable-undo image)
  85.   (gimp-display-new image)))
  86.  
  87. (script-fu-register "script-fu-waves-anim" 
  88.             "<Image>/Script-Fu/Animators/Waves"
  89.             "Animate an image like a stone's been thrown into it"
  90.             "Sven Neumann (neumanns@uni-duesseldorf.de)"
  91.             "Sven Neumann"
  92.             "12/13/1997"
  93.             "RGB RGBA GRAY GRAYA"
  94.             SF-IMAGE "Image" 0
  95.             SF-DRAWABLE "Drawable" 0
  96.             SF-VALUE "Amplitude" "10"
  97.             SF-VALUE "Wavelength" "10" 
  98.             SF-VALUE "Number of Frames" "6"
  99.             SF-TOGGLE "Invert direction" FALSE)
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.